100 DIM REALTONE(12,2)
110 LASTBYTE=0
120 FOR I=1 TO 12
130 READ A,B
140 REALTONE(I,1)=A
150 REALTONE(I,2)=B
160 NEXT I
170 DATA 78,440,74,466,77,494,90,262,83,277,88,294,68,311,67,330,86,349,71,370,66,392,72,415
180 CALL KEY(0,K,S)
190 IF S=0 THEN 180
200 IF K=49 THEN 310
210 IF K=50 THEN 340
220 IF K=51 THEN 370
230 IF K=52 THEN 400
240 LASTBYTE=K
250 FOR I=1 TO 12
260 IF K<>REALTONE(I,1)THEN 280
270 TONE=REALTONE(I,2)
280 NEXT I
290 CALL SOUND(300,TONE,5)
300 GOTO 180
310 IF TONE=0 THEN 180
320 CALL SOUND(300,TONE,5,INT(TONE/.79394+.5),5,INT(TONE/.66837+.5),5)
330 GOTO 180
340 IF TONE=0 THEN 180
350 CALL SOUND(300,TONE,5,INT(TONE/.79394+.5),5,INT(TONE/.5625+.5),5)
360 GOTO 180
370 IF TONE=0 THEN 180
380 CALL SOUND(300,TONE,5,INT(TONE/.84244+.5),5,INT(TONE/.66837+.5),5)
390 GOTO 180
400 IF TONE=0 THEN 180
410 CALL SOUND(300,TONE,5,INT(TONE/.84244+.5),5,INT(TONE/.5625+.5),5)
420 GOTO 180
430 END
